﻿Public Class Form1
  Private Sub Button1_Click(
      ByVal sender As System.Object,
      ByVal e As System.EventArgs) _
      Handles Button1.Click
    ToolStripProgressBar1.Visible = True
    For i As Integer = 1 To 100
      System.Threading.Thread.Sleep(100)
      ToolStripProgressBar1.Value = i
      Application.DoEvents()
    Next
    MessageBox.Show("Operazione terminata")
  End Sub
End Class
